home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / graphics / sinelines2.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-02  |  194 b   |  12 lines
  1. Colrs=4
  2. SCREEN 1,640,200,Colrs,2
  3. WINDOW 2,"sine lines",,15,1
  4. FOR x=0 TO 617
  5. co=co+.5 :IF co>7 THEN co=1
  6. y1=90+80*SIN(x/40)
  7. y2=90+70*SIN(x/60)
  8. x2=320-300*SIN(x/50)
  9. LINE (x,y1)-(x2,y2),co
  10. NEXT x
  11.  
  12.